home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 1
/
CU Amiga Magazine CD-ROM Special Edition (1995)(EMAP Images)(GB)[Issue 1995-11].iso
/
Aminet
/
comm
/
cnet
/
cnettoolkit2a.lha
/
Routines
/
SCROLL
< prev
next >
Wrap
Text File
|
1994-12-13
|
294b
|
5 lines
SCROLL: procedure;parse arg line,text;sp=2;getuser27;ll=result-1
do a=1 to length(text)+ll;ch=substr(text,a,1);if index('¹²³',ch)>0 then sp=translate(ch,'246','¹²³')
else sendstring ''line';0HP'line';'ll'H'ch;call delay(sp);maygetchar;if result~='NOCHAR' then leave;end
return